﻿Imports System.Text
Imports ValorYReferencia.Empleados

<TestClass()>
Public Class EmpleadosTest
    <TestInitialize()>
    Public Sub InicializacionDelTest()

    End Sub

    <TestMethod()>
    Public Sub CalcularSueldoConserje()
        Dim conserje As New Conserje()
        Assert.AreEqual(conserje.CalcularSueldo(), 3500.0)
    End Sub

    <TestMethod()>
    Public Sub CalcularSueldoProfesorConNingunCurso()
        Dim profesor As New Profesor()
        Assert.AreEqual(profesor.CalcularSueldo(), 0.0)
    End Sub

    <TestMethod()>
    Public Sub CalcularSueldoProfesorConDiezCurso()
        Dim profesor As New Profesor()
        profesor.NumeroDeCursos = 10
        Assert.AreEqual(profesor.CalcularSueldo(), 1500.0)
    End Sub

    <TestMethod()>
    Public Sub CalcularSueldoCapataz()
        Dim profesor As New Profesor()
        profesor.NumeroDeCursos = 10

        Dim conserje1 As New Conserje()
        Dim conserje2 As New Conserje()

        Dim capataz As New Capataz()
        capataz.Empleados.AddRange({profesor, conserje1, conserje2})

        Assert.AreEqual(capataz.CalcularSueldo(), 850.0)
    End Sub
End Class
